home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 1 / Giga Games.iso / net / go / prog / golatex.taz / golatex / mf / go1black.mf < prev    next >
Encoding:
Text File  |  1993-02-20  |  35.4 KB  |  1,342 lines
  1. mode_setup;
  2.  
  3. define_pixels(size);
  4. define_pixels(line_thickness,border_line_thickness);
  5. define_pixels(dig_h,dig_w,dig_pen);
  6.  
  7. picture digit[];
  8. picture black_circle;
  9.  
  10. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  11.  
  12. def digit_zero =
  13.   currentpicture := nullpicture;
  14.   pickup pencircle scaled dig_pen;
  15.   lft x1=0; y1=.5dig_h;
  16.   x2=.5dig_w; top y2=dig_h;
  17.   rt x3=dig_w; y3=.5dig_h;
  18.   x4=.5dig_w; bot y4=0;
  19.   draw z1...z2...z3...z4...cycle;
  20.   digit[0] := currentpicture;
  21.   clearxy; clearit; clearpen;
  22. enddef;
  23.  
  24. def digit_one =
  25.   currentpicture := nullpicture;
  26.   pickup pencircle scaled dig_pen;
  27.   x1=.5dig_w; bot y1=0;
  28.   x2=.5dig_w; top y2=dig_h;
  29.   draw z1--z2;
  30.   digit[1] := currentpicture;
  31.   clearxy; clearit; clearpen;
  32. enddef;
  33.  
  34. def digit_two =
  35.   currentpicture := nullpicture;
  36.   pickup pencircle scaled dig_pen;
  37.   lft x1=0; y1=.75dig_h;
  38.   x2=.5dig_w; top y2=dig_h;
  39.   rt x3=.8dig_w; y3=.9dig_h;
  40.   lft x4=0; bot y4=0;
  41.   draw z1{up}...z2...z3..{(-.8dig_w,-dig_h)}z4;
  42.   z5=z4;
  43.   rt x6=dig_w; bot y6=0;
  44.   draw z5--z6;
  45.   digit[2] := currentpicture;
  46.   clearxy; clearit; clearpen;
  47. enddef;
  48.  
  49. def digit_three =
  50.   currentpicture := nullpicture;
  51.   pickup pencircle scaled dig_pen;
  52.   lft x1=.08dig_w; y1=.8dig_h;
  53.   x2=.5dig_w; top y2=dig_h; 
  54.   rt x3=.92dig_w; y3=y1;
  55.   z4=(.5dig_w,.52dig_h);
  56.   rt x5=dig_w; y5=.2dig_h;
  57.   x6=.65dig_w; bot y6=0;
  58.   lft x7=0; y7=y5;
  59.   draw z1{up}..z2..z3..{left}z4{right}..z5..z6...{up}z7;
  60.   digit[3] := currentpicture;
  61.   clearxy; clearit; clearpen;
  62. enddef;
  63.  
  64. def digit_four =
  65.   currentpicture := nullpicture;
  66.   pickup pencircle scaled dig_pen;
  67.   x1=.75dig_w; bot y1=0;
  68.   x2=x1; top y2=dig_h;
  69.   lft x3=0; y3=.3dig_h;
  70.   rt x4=dig_w; y4=y3;
  71.   draw z1--z2--z3--z4;
  72.   digit[4] := currentpicture;
  73.   clearxy; clearit; clearpen;
  74. enddef;
  75.  
  76. def digit_five =
  77.   currentpicture := nullpicture;
  78.   pickup pencircle scaled dig_pen;
  79.   rt x1=.95dig_w; top y1=dig_h;
  80.   lft x2=.05dig_w; y2=y1;
  81.   lft x3=0; y3=.45dig_h;
  82.   z4=(.5dig_w,.6dig_h);
  83.   rt x5=dig_w; y5=.3dig_h;
  84.   x6=.65dig_w; bot y6=0;
  85.   lft x7=0; y7=.15dig_h;
  86.   draw z1--z2--z3{up}..z4..z5..z6...{up}z7;
  87.   digit[5] := currentpicture;
  88.   clearxy; clearit; clearpen;
  89. enddef;
  90.  
  91. def digit_six =
  92.   currentpicture := nullpicture;
  93.   pickup pencircle scaled dig_pen;
  94.   rt x1=dig_w; y1=.8dig_h;
  95.   x2=.45dig_w; top y2=dig_h;
  96.   lft x3=0; y3=.5dig_h;
  97.   x4=.5dig_w; bot y4=0;
  98.   rt x5=dig_w; y5=.3dig_h;
  99.   z6=(.53dig_w,.55dig_h);
  100.   z7=(.03dig_w+.6dig_pen,.25dig_h);
  101.   draw z1{up}...z2...z3...z4...z5...{left}z6{left}...{(1,-10)}z7;
  102.   digit[6] := currentpicture;
  103.   clearxy; clearit; clearpen;
  104. enddef;
  105.  
  106. def digit_seven =
  107.   currentpicture := nullpicture;
  108.   pickup pencircle scaled dig_pen;
  109.   lft x1=0; top y1=dig_h;
  110.   rt x2=dig_w; y2=y1;
  111.   lft x3=.2dig_w; bot y3=0;
  112.   draw z1--z2--z3;
  113.   digit[7] := currentpicture;
  114.   clearxy; clearit; clearpen;
  115. enddef;
  116.  
  117. def digit_eight =
  118.   currentpicture := nullpicture;
  119.   pickup pencircle scaled dig_pen;
  120.   lft x1=.08dig_w; y1=.75dig_h;
  121.   x2=.5dig_w; top y2=dig_h;
  122.   rt x3=.92dig_w; y3=y1;
  123.   z4=(.5dig_w,.55dig_h);
  124.   rt x5=dig_w; y5=.25dig_h;
  125.   x6=.5dig_w; bot y6=0;
  126.   lft x7=0; y7=y5;
  127.   draw z1...z2...z3...z4...cycle; 
  128.   draw z4...z5...z6...z7...cycle;
  129.   digit[8] := currentpicture;
  130.   clearxy; clearit; clearpen;
  131. enddef;
  132.  
  133. def digit_nine =
  134.   currentpicture := nullpicture;
  135.   currentpicture := digit[6] rotated 180;
  136.   digit[9] := currentpicture shifted (dig_w,dig_h);
  137.   clearxy; clearit; clearpen;
  138. enddef;
  139.  
  140. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  141.  
  142. digit_zero; digit_one; digit_two; digit_three; digit_four;
  143. digit_five; digit_six; digit_seven; digit_eight; digit_nine;
  144.  
  145. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  146.  
  147. beginchar(0,24/22size#,23/22size#,1/22size#); "pion czarny";
  148.   pickup pencircle scaled line_thickness;
  149.   lft x1=1/24w; y1=11/24w;
  150.   rt x2=23/24w; y2=11/24w;
  151.   filldraw z1..z2..cycle;
  152.   black_circle := currentpicture;
  153. showit;
  154. endchar;
  155.  
  156. % stop"";
  157.  
  158. beginchar(1,24/22size#,23/22size#,1/22size#); "pion czarny z 1";
  159.   currentpicture := black_circle 
  160.        - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h);
  161. showit;
  162. endchar;
  163.  
  164. % stop"";
  165.  
  166. beginchar(2,24/22size#,23/22size#,1/22size#); "pion czarny z 2";
  167.   currentpicture := black_circle 
  168.        - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h);
  169. showit;
  170. endchar;
  171.  
  172. % stop"";
  173.  
  174. beginchar(3,24/22size#,23/22size#,1/22size#); "pion czarny z 3";
  175.   currentpicture := black_circle 
  176.        - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h);
  177. showit;
  178. endchar;
  179.  
  180. % stop"";
  181.  
  182. beginchar(4,24/22size#,23/22size#,1/22size#); "pion czarny z 4";
  183.   currentpicture := black_circle 
  184.        - digit[4] shifted (.5w-.6dig_w,11/24w-.5dig_h);
  185. showit;
  186. endchar;
  187.  
  188. % stop"";
  189.  
  190. beginchar(5,24/22size#,23/22size#,1/22size#); "pion czarny z 5";
  191.   currentpicture := black_circle 
  192.        - digit[5] shifted (.5w-.5dig_w,11/24w-.5dig_h);
  193. showit;
  194. endchar;
  195.  
  196. % stop"";
  197.  
  198. beginchar(6,24/22size#,23/22size#,1/22size#); "pion czarny z 6";
  199.   currentpicture := black_circle 
  200.        - digit[6] shifted (.5w-.5dig_w,11/24w-.5dig_h);
  201. showit;
  202. endchar;
  203.  
  204. % stop"";
  205.  
  206. beginchar(7,24/22size#,23/22size#,1/22size#); "pion czarny z 7";
  207.   currentpicture := black_circle 
  208.        - digit[7] shifted (.5w-.5dig_w,11/24w-.5dig_h);
  209. showit;
  210. endchar;
  211.  
  212. % stop"";
  213.  
  214. beginchar(8,24/22size#,23/22size#,1/22size#); "pion czarny z 8";
  215.   currentpicture := black_circle 
  216.        - digit[8] shifted (.5w-.5dig_w,11/24w-.5dig_h);
  217. showit;
  218. endchar;
  219.  
  220. % stop"";
  221.  
  222. beginchar(9,24/22size#,23/22size#,1/22size#); "pion czarny z 9";
  223.   currentpicture := black_circle 
  224.        - digit[9] shifted (.5w-.5dig_w,11/24w-.5dig_h);
  225. showit;
  226. endchar;
  227.  
  228. % stop"";
  229.  
  230. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  231.  
  232. dig_w := .7dig_w;
  233. %%%dig_pen := .7dig_pen;
  234.  
  235. digit_zero; digit_one; digit_two; digit_three; digit_four;
  236. digit_five; digit_six; digit_seven; digit_eight; digit_nine;
  237.  
  238. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  239.  
  240. beginchar(10,24/22size#,23/22size#,1/22size#); "pion czarny z 10";
  241.   currentpicture := black_circle 
  242.        - digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
  243.        - digit[0] shifted (.5w,11/24w-.5dig_h);
  244. showit;
  245. endchar;
  246.  
  247. % stop"";
  248.  
  249. beginchar(11,24/22size#,23/22size#,1/22size#); "pion czarny z 11";
  250.   currentpicture := black_circle 
  251.        - digit[1] shifted (.5w-dig_w,11/24w-.5dig_h)
  252.        - digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  253. showit;
  254. endchar;
  255.  
  256. % stop"";
  257.  
  258. beginchar(12,24/22size#,23/22size#,1/22size#); "pion czarny z 12";
  259.   currentpicture := black_circle 
  260.        - digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
  261.        - digit[2] shifted (.5w,11/24w-.5dig_h);
  262. showit;
  263. endchar;
  264.  
  265. % stop"";
  266.  
  267. beginchar(13,24/22size#,23/22size#,1/22size#); "pion czarny z 13";
  268.   currentpicture := black_circle 
  269.        - digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
  270.        - digit[3] shifted (.5w,11/24w-.5dig_h);
  271. showit;
  272. endchar;
  273.  
  274. % stop"";
  275.  
  276. beginchar(14,24/22size#,23/22size#,1/22size#); "pion czarny z 14";
  277.   currentpicture := black_circle 
  278.        - digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
  279.        - digit[4] shifted (.5w,11/24w-.5dig_h);
  280. showit;
  281. endchar;
  282.  
  283. % stop"";
  284.  
  285. beginchar(15,24/22size#,23/22size#,1/22size#); "pion czarny z 15";
  286.   currentpicture := black_circle 
  287.        - digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
  288.        - digit[5] shifted (.5w,11/24w-.5dig_h);
  289. showit;
  290. endchar;
  291.  
  292. % stop"";
  293.  
  294. beginchar(16,24/22size#,23/22size#,1/22size#); "pion czarny z 16";
  295.   currentpicture := black_circle 
  296.        - digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
  297.        - digit[6] shifted (.5w,11/24w-.5dig_h);
  298. showit;
  299. endchar;
  300.  
  301. % stop"";
  302.  
  303. beginchar(17,24/22size#,23/22size#,1/22size#); "pion czarny z 17";
  304.   currentpicture := black_circle 
  305.        - digit[1] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  306.        - digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  307. showit;
  308. endchar;
  309.  
  310. % stop"";
  311.  
  312. beginchar(18,24/22size#,23/22size#,1/22size#); "pion czarny z 18";
  313.   currentpicture := black_circle 
  314.        - digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
  315.        - digit[8] shifted (.5w,11/24w-.5dig_h);
  316. showit;
  317. endchar;
  318.  
  319. % stop"";
  320.  
  321. beginchar(19,24/22size#,23/22size#,1/22size#); "pion czarny z 19";
  322.   currentpicture := black_circle 
  323.        - digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
  324.        - digit[9] shifted (.5w,11/24w-.5dig_h);   
  325. showit;
  326. endchar;
  327.  
  328. % stop"";
  329.  
  330. beginchar(20,24/22size#,23/22size#,1/22size#); "pion czarny z 20";
  331.   currentpicture := black_circle 
  332.        - digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  333.        - digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  334. showit;
  335. endchar;
  336.  
  337. % stop"";
  338.  
  339. beginchar(21,24/22size#,23/22size#,1/22size#); "pion czarny z 21";
  340.   currentpicture := black_circle 
  341.        - digit[2] shifted (.5w-.9dig_w,11/24w-.5dig_h)
  342.        - digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  343. showit;
  344. endchar;
  345.  
  346. % stop"";
  347.  
  348. beginchar(22,24/22size#,23/22size#,1/22size#); "pion czarny z 22";
  349.   currentpicture := black_circle 
  350.        - digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  351.        - digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  352. showit;
  353. endchar;
  354.  
  355. % stop"";
  356.  
  357. beginchar(23,24/22size#,23/22size#,1/22size#); "pion czarny z 23";
  358.   currentpicture := black_circle 
  359.        - digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  360.        - digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  361. showit;
  362. endchar;
  363.  
  364. % stop"";
  365.  
  366. beginchar(24,24/22size#,23/22size#,1/22size#); "pion czarny z 24";
  367.   currentpicture := black_circle 
  368.        - digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  369.        - digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  370. showit;
  371. endchar;
  372.  
  373. % stop"";
  374.  
  375. beginchar(25,24/22size#,23/22size#,1/22size#); "pion czarny z 25";
  376.   currentpicture := black_circle 
  377.        - digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  378.        - digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  379. showit;
  380. endchar;
  381.  
  382. % stop"";
  383.  
  384. beginchar(26,24/22size#,23/22size#,1/22size#); "pion czarny z 26";
  385.   currentpicture := black_circle 
  386.        - digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  387.        - digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  388. showit;
  389. endchar;
  390.  
  391. % stop"";
  392.  
  393. beginchar(27,24/22size#,23/22size#,1/22size#); "pion czarny z 27";
  394.   currentpicture := black_circle 
  395.        - digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  396.        - digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  397. showit;
  398. endchar;
  399.  
  400. % stop"";
  401.  
  402. beginchar(28,24/22size#,23/22size#,1/22size#); "pion czarny z 28";
  403.   currentpicture := black_circle 
  404.        - digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  405.        - digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  406. showit;
  407. endchar;
  408.  
  409. % stop"";
  410.  
  411. beginchar(29,24/22size#,23/22size#,1/22size#); "pion czarny z 29";
  412.   currentpicture := black_circle 
  413.        - digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  414.        - digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
  415. showit;
  416. endchar;
  417.  
  418. % stop"";
  419.  
  420. beginchar(30,24/22size#,23/22size#,1/22size#); "pion czarny z 30";
  421.   currentpicture := black_circle 
  422.        - digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  423.        - digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  424. showit;
  425. endchar;
  426.  
  427. % stop"";
  428.  
  429. beginchar(31,24/22size#,23/22size#,1/22size#); "pion czarny z 31";
  430.   currentpicture := black_circle 
  431.        - digit[3] shifted (.5w-.9dig_w,11/24w-.5dig_h)
  432.        - digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  433. showit;
  434. endchar;
  435.  
  436. % stop"";
  437.  
  438. beginchar(32,24/22size#,23/22size#,1/22size#); "pion czarny z 32";
  439.   currentpicture := black_circle 
  440.        - digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  441.        - digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  442. showit;
  443. endchar;
  444.  
  445. % stop"";
  446.  
  447. beginchar(33,24/22size#,23/22size#,1/22size#); "pion czarny z 33";
  448.   currentpicture := black_circle 
  449.        - digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  450.        - digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  451. showit;
  452. endchar;
  453.  
  454. % stop"";
  455.  
  456. beginchar(34,24/22size#,23/22size#,1/22size#); "pion czarny z 34";
  457.   currentpicture := black_circle 
  458.        - digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  459.        - digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  460. showit;
  461. endchar;
  462.  
  463. % stop"";
  464.  
  465. beginchar(35,24/22size#,23/22size#,1/22size#); "pion czarny z 35";
  466.   currentpicture := black_circle 
  467.        - digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  468.        - digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  469. showit;
  470. endchar;
  471.  
  472. % stop"";
  473.  
  474. beginchar(36,24/22size#,23/22size#,1/22size#); "pion czarny z 36";
  475.   currentpicture := black_circle 
  476.        - digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  477.        - digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  478. showit;
  479. endchar;
  480.  
  481. % stop"";
  482.  
  483. beginchar(37,24/22size#,23/22size#,1/22size#); "pion czarny z 37";
  484.   currentpicture := black_circle 
  485.        - digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  486.        - digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  487. showit;
  488. endchar;
  489.  
  490. % stop"";
  491.  
  492. beginchar(38,24/22size#,23/22size#,1/22size#); "pion czarny z 38";
  493.   currentpicture := black_circle 
  494.        - digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  495.        - digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  496. showit;
  497. endchar;
  498.  
  499. % stop"";
  500.  
  501. beginchar(39,24/22size#,23/22size#,1/22size#); "pion czarny z 39";
  502.   currentpicture := black_circle 
  503.        - digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  504.        - digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
  505. showit;
  506. endchar;
  507.  
  508. % stop"";
  509.  
  510. beginchar(40,24/22size#,23/22size#,1/22size#); "pion czarny z 40";
  511.   currentpicture := black_circle 
  512.        - digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  513.        - digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  514. showit;
  515. endchar;
  516.  
  517. % stop"";
  518.  
  519. beginchar(41,24/22size#,23/22size#,1/22size#); "pion czarny z 41";
  520.   currentpicture := black_circle 
  521.        - digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  522.        - digit[1] shifted (.5w,11/24w-.5dig_h);
  523. showit;
  524. endchar;
  525.  
  526. % stop"";
  527.  
  528. beginchar(42,24/22size#,23/22size#,1/22size#); "pion czarny z 42";
  529.   currentpicture := black_circle 
  530.        - digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  531.        - digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  532. showit;
  533. endchar;
  534.  
  535. % stop"";
  536.  
  537. beginchar(43,24/22size#,23/22size#,1/22size#); "pion czarny z 43";
  538.   currentpicture := black_circle 
  539.        - digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  540.        - digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  541. showit;
  542. endchar;
  543.  
  544. % stop"";
  545.  
  546. beginchar(44,24/22size#,23/22size#,1/22size#); "pion czarny z 44";
  547.   currentpicture := black_circle 
  548.        - digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  549.        - digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  550. showit;
  551. endchar;
  552.  
  553. % stop"";
  554.  
  555. beginchar(45,24/22size#,23/22size#,1/22size#); "pion czarny z 45";
  556.   currentpicture := black_circle 
  557.        - digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  558.        - digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  559. showit;
  560. endchar;
  561.  
  562. % stop"";
  563.  
  564. beginchar(46,24/22size#,23/22size#,1/22size#); "pion czarny z 46";
  565.   currentpicture := black_circle 
  566.        - digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  567.        - digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  568. showit;
  569. endchar;
  570.  
  571. % stop"";
  572.  
  573. beginchar(47,24/22size#,23/22size#,1/22size#); "pion czarny z 47";
  574.   currentpicture := black_circle 
  575.        - digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  576.        - digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  577. showit;
  578. endchar;
  579.  
  580. % stop"";
  581.  
  582. beginchar(48,24/22size#,23/22size#,1/22size#); "pion czarny z 48";
  583.   currentpicture := black_circle 
  584.        - digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  585.        - digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  586. showit;
  587. endchar;
  588.  
  589. % stop"";
  590.  
  591. beginchar(49,24/22size#,23/22size#,1/22size#); "pion czarny z 49";
  592.   currentpicture := black_circle 
  593.        - digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  594.        - digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
  595. showit;
  596. endchar;
  597.  
  598. % stop"";
  599.  
  600. beginchar(50,24/22size#,23/22size#,1/22size#); "pion czarny z 50";
  601.   currentpicture := black_circle 
  602.        - digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  603.        - digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  604. showit;
  605. endchar;
  606.  
  607. % stop"";
  608.  
  609. beginchar(51,24/22size#,23/22size#,1/22size#); "pion czarny z 51";
  610.   currentpicture := black_circle 
  611.        - digit[5] shifted (.5w-.9dig_w,11/24w-.5dig_h)
  612.        - digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  613. showit;
  614. endchar;
  615.  
  616. % stop"";
  617.  
  618. beginchar(52,24/22size#,23/22size#,1/22size#); "pion czarny z 52";
  619.   currentpicture := black_circle 
  620.        - digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  621.        - digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  622. showit;
  623. endchar;
  624.  
  625. % stop"";
  626.  
  627. beginchar(53,24/22size#,23/22size#,1/22size#); "pion czarny z 53";
  628.   currentpicture := black_circle 
  629.        - digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  630.        - digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  631. showit;
  632. endchar;
  633.  
  634. % stop"";
  635.  
  636. beginchar(54,24/22size#,23/22size#,1/22size#); "pion czarny z 54";
  637.   currentpicture := black_circle 
  638.        - digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  639.        - digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  640. showit;
  641. endchar;
  642.  
  643. % stop"";
  644.  
  645. beginchar(55,24/22size#,23/22size#,1/22size#); "pion czarny z 55";
  646.   currentpicture := black_circle 
  647.        - digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  648.        - digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  649. showit;
  650. endchar;
  651.  
  652. % stop"";
  653.  
  654. beginchar(56,24/22size#,23/22size#,1/22size#); "pion czarny z 56";
  655.   currentpicture := black_circle 
  656.        - digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  657.        - digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  658. showit;
  659. endchar;
  660.  
  661. % stop"";
  662.  
  663. beginchar(57,24/22size#,23/22size#,1/22size#); "pion czarny z 57";
  664.   currentpicture := black_circle 
  665.        - digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  666.        - digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  667. showit;
  668. endchar;
  669.  
  670. % stop"";
  671.  
  672. beginchar(58,24/22size#,23/22size#,1/22size#); "pion czarny z 58";
  673.   currentpicture := black_circle 
  674.        - digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  675.        - digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  676. showit;
  677. endchar;
  678.  
  679. % stop"";
  680.  
  681. beginchar(59,24/22size#,23/22size#,1/22size#); "pion czarny z 59";
  682.   currentpicture := black_circle 
  683.        - digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  684.        - digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
  685. showit;
  686. endchar;
  687.  
  688. % stop"";
  689.  
  690. beginchar(60,24/22size#,23/22size#,1/22size#); "pion czarny z 60";
  691.   currentpicture := black_circle 
  692.        - digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  693.        - digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  694. showit;
  695. endchar;
  696.  
  697. % stop"";
  698.  
  699. beginchar(61,24/22size#,23/22size#,1/22size#); "pion czarny z 61";
  700.   currentpicture := black_circle 
  701.        - digit[6] shifted (.5w-.9dig_w,11/24w-.5dig_h)
  702.        - digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  703. showit;
  704. endchar;
  705.  
  706. % stop"";
  707.  
  708. beginchar(62,24/22size#,23/22size#,1/22size#); "pion czarny z 62";
  709.   currentpicture := black_circle 
  710.        - digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  711.        - digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  712. showit;
  713. endchar;
  714.  
  715. % stop"";
  716.  
  717. beginchar(63,24/22size#,23/22size#,1/22size#); "pion czarny z 63";
  718.   currentpicture := black_circle 
  719.        - digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  720.        - digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  721. showit;
  722. endchar;
  723.  
  724. % stop"";
  725.  
  726. beginchar(64,24/22size#,23/22size#,1/22size#); "pion czarny z 64";
  727.   currentpicture := black_circle 
  728.        - digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  729.        - digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  730. showit;
  731. endchar;
  732.  
  733. % stop"";
  734.  
  735. beginchar(65,24/22size#,23/22size#,1/22size#); "pion czarny z 65";
  736.   currentpicture := black_circle 
  737.        - digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  738.        - digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  739. showit;
  740. endchar;
  741.  
  742. % stop"";
  743.  
  744. beginchar(66,24/22size#,23/22size#,1/22size#); "pion czarny z 66";
  745.   currentpicture := black_circle 
  746.        - digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  747.        - digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  748. showit;
  749. endchar;
  750.  
  751. % stop"";
  752.  
  753. beginchar(67,24/22size#,23/22size#,1/22size#); "pion czarny z 67";
  754.   currentpicture := black_circle 
  755.        - digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  756.        - digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  757. showit;
  758. endchar;
  759.  
  760. % stop"";
  761.  
  762. beginchar(68,24/22size#,23/22size#,1/22size#); "pion czarny z 68";
  763.   currentpicture := black_circle 
  764.        - digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  765.        - digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  766. showit;
  767. endchar;
  768.  
  769. % stop"";
  770.  
  771. beginchar(69,24/22size#,23/22size#,1/22size#); "pion czarny z 69";
  772.   currentpicture := black_circle 
  773.        - digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  774.        - digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
  775. showit;
  776. endchar;
  777.  
  778. % stop"";
  779.  
  780. beginchar(70,24/22size#,23/22size#,1/22size#); "pion czarny z 70";
  781.   currentpicture := black_circle 
  782.        - digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  783.        - digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  784. showit;
  785. endchar;
  786.  
  787. % stop"";
  788.  
  789. beginchar(71,24/22size#,23/22size#,1/22size#); "pion czarny z 71";
  790.   currentpicture := black_circle 
  791.        - digit[7] shifted (.5w-.9dig_w,11/24w-.5dig_h)
  792.        - digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  793. showit;
  794. endchar;
  795.  
  796. % stop"";
  797.  
  798. beginchar(72,24/22size#,23/22size#,1/22size#); "pion czarny z 72";
  799.   currentpicture := black_circle 
  800.        - digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  801.        - digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  802. showit;
  803. endchar;
  804.  
  805. % stop"";
  806.  
  807. beginchar(73,24/22size#,23/22size#,1/22size#); "pion czarny z 73";
  808.   currentpicture := black_circle 
  809.        - digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  810.        - digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  811. showit;
  812. endchar;
  813.  
  814. % stop"";
  815.  
  816. beginchar(74,24/22size#,23/22size#,1/22size#); "pion czarny z 74";
  817.   currentpicture := black_circle 
  818.        - digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  819.        - digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  820. showit;
  821. endchar;
  822.  
  823. % stop"";
  824.  
  825. beginchar(75,24/22size#,23/22size#,1/22size#); "pion czarny z 75";
  826.   currentpicture := black_circle 
  827.        - digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  828.        - digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  829. showit;
  830. endchar;
  831.  
  832. % stop"";
  833.  
  834. beginchar(76,24/22size#,23/22size#,1/22size#); "pion czarny z 76";
  835.   currentpicture := black_circle 
  836.        - digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  837.        - digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  838. showit;
  839. endchar;
  840.  
  841. % stop"";
  842.  
  843. beginchar(77,24/22size#,23/22size#,1/22size#); "pion czarny z 77";
  844.   currentpicture := black_circle 
  845.        - digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  846.        - digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  847. showit;
  848. endchar;
  849.  
  850. % stop"";
  851.  
  852. beginchar(78,24/22size#,23/22size#,1/22size#); "pion czarny z 78";
  853.   currentpicture := black_circle 
  854.        - digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  855.        - digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  856. showit;
  857. endchar;
  858.  
  859. % stop"";
  860.  
  861. beginchar(79,24/22size#,23/22size#,1/22size#); "pion czarny z 79";
  862.   currentpicture := black_circle 
  863.        - digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  864.        - digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
  865. showit;
  866. endchar;
  867.  
  868. % stop"";
  869.  
  870. beginchar(80,24/22size#,23/22size#,1/22size#); "pion czarny z 80";
  871.   currentpicture := black_circle 
  872.        - digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  873.        - digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  874. showit;
  875. endchar;
  876.  
  877. % stop"";
  878.  
  879. beginchar(81,24/22size#,23/22size#,1/22size#); "pion czarny z 81";
  880.   currentpicture := black_circle 
  881.        - digit[8] shifted (.5w-.9dig_w,11/24w-.5dig_h)
  882.        - digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  883. showit;
  884. endchar;
  885.  
  886. % stop"";
  887.  
  888. beginchar(82,24/22size#,23/22size#,1/22size#); "pion czarny z 82";
  889.   currentpicture := black_circle 
  890.        - digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  891.        - digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  892. showit;
  893. endchar;
  894.  
  895. % stop"";
  896.  
  897. beginchar(83,24/22size#,23/22size#,1/22size#); "pion czarny z 83";
  898.   currentpicture := black_circle 
  899.        - digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  900.        - digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  901. showit;
  902. endchar;
  903.  
  904. % stop"";
  905.  
  906. beginchar(84,24/22size#,23/22size#,1/22size#); "pion czarny z 84";
  907.   currentpicture := black_circle 
  908.        - digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  909.        - digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  910. showit;
  911. endchar;
  912.  
  913. % stop"";
  914.  
  915. beginchar(85,24/22size#,23/22size#,1/22size#); "pion czarny z 85";
  916.   currentpicture := black_circle 
  917.        - digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  918.        - digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  919. showit;
  920. endchar;
  921.  
  922. % stop"";
  923.  
  924. beginchar(86,24/22size#,23/22size#,1/22size#); "pion czarny z 86";
  925.   currentpicture := black_circle 
  926.        - digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  927.        - digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  928. showit;
  929. endchar;
  930.  
  931. % stop"";
  932.  
  933. beginchar(87,24/22size#,23/22size#,1/22size#); "pion czarny z 87";
  934.   currentpicture := black_circle 
  935.        - digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  936.        - digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  937. showit;
  938. endchar;
  939.  
  940. % stop"";
  941.  
  942. beginchar(88,24/22size#,23/22size#,1/22size#); "pion czarny z 88";
  943.   currentpicture := black_circle 
  944.        - digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  945.        - digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  946. showit;
  947. endchar;
  948.  
  949. % stop"";
  950.  
  951. beginchar(89,24/22size#,23/22size#,1/22size#); "pion czarny z 89";
  952.   currentpicture := black_circle 
  953.        - digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  954.        - digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
  955. showit;
  956. endchar;
  957.  
  958. % stop"";
  959.  
  960. beginchar(90,24/22size#,23/22size#,1/22size#); "pion czarny z 90";
  961.   currentpicture := black_circle 
  962.        - digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h) 
  963.        - digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  964. showit;
  965. endchar;
  966.  
  967. % stop"";
  968.  
  969. beginchar(91,24/22size#,23/22size#,1/22size#); "pion czarny z 91";
  970.   currentpicture := black_circle 
  971.        - digit[9] shifted (.5w-.9dig_w,11/24w-.5dig_h)  
  972.        - digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  973. showit;
  974. endchar;
  975.  
  976. % stop"";
  977.  
  978. beginchar(92,24/22size#,23/22size#,1/22size#); "pion czarny z 92";
  979.   currentpicture := black_circle 
  980.        - digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h) 
  981.        - digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  982. showit;
  983. endchar;
  984.  
  985. % stop"";
  986.  
  987. beginchar(93,24/22size#,23/22size#,1/22size#); "pion czarny z 93";
  988.   currentpicture := black_circle 
  989.        - digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h)  
  990.        - digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  991. showit;
  992. endchar;
  993.  
  994. % stop"";
  995.  
  996. beginchar(94,24/22size#,23/22size#,1/22size#); "pion czarny z 94";
  997.   currentpicture := black_circle 
  998.        - digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h) 
  999.        - digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  1000. showit;
  1001. endchar;
  1002.  
  1003. % stop"";
  1004.  
  1005. beginchar(95,24/22size#,23/22size#,1/22size#); "pion czarny z 95";
  1006.   currentpicture := black_circle 
  1007.        - digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h)  
  1008.        - digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  1009. showit;
  1010. endchar;
  1011.  
  1012. % stop"";
  1013.  
  1014. beginchar(96,24/22size#,23/22size#,1/22size#); "pion czarny z 96";
  1015.   currentpicture := black_circle 
  1016.        - digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h) 
  1017.        - digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  1018. showit;
  1019. endchar;
  1020.  
  1021. % stop"";
  1022.  
  1023. beginchar(97,24/22size#,23/22size#,1/22size#); "pion czarny z 97";
  1024.   currentpicture := black_circle 
  1025.        - digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h)  
  1026.        - digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  1027. showit;
  1028. endchar;
  1029.  
  1030. % stop"";
  1031.  
  1032. beginchar(98,24/22size#,23/22size#,1/22size#); "pion czarny z 98";
  1033.   currentpicture := black_circle 
  1034.        - digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h) 
  1035.        - digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  1036. showit;
  1037. endchar;
  1038.  
  1039. % stop"";
  1040.  
  1041. beginchar(99,24/22size#,23/22size#,1/22size#); "pion czarny z 99";
  1042.   currentpicture := black_circle 
  1043.        - digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h)  
  1044.        - digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
  1045. showit;
  1046. endchar;
  1047.  
  1048. % stop"";
  1049.  
  1050. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1051.  
  1052. dig_w := .6dig_w;
  1053. dig_pen := .7dig_pen;
  1054.  
  1055. digit_zero; digit_one; digit_two; digit_three; digit_four;
  1056. digit_five; digit_six; digit_seven; digit_eight; digit_nine;
  1057.  
  1058. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1059.  
  1060. beginchar(100,24/22size#,23/22size#,1/22size#); "pion czarny z 100";
  1061.   currentpicture := black_circle 
  1062.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1063.        - digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1064.        - digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1065. showit;
  1066. endchar;
  1067.  
  1068. % stop"";
  1069.  
  1070. beginchar(101,24/22size#,23/22size#,1/22size#); "pion czarny z 101";
  1071.   currentpicture := black_circle 
  1072.        - digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
  1073.        - digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1074.        - digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1075. showit;
  1076. endchar;
  1077.  
  1078. % stop"";
  1079.  
  1080. beginchar(102,24/22size#,23/22size#,1/22size#); "pion czarny z 102";
  1081.   currentpicture := black_circle 
  1082.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1083.        - digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1084.        - digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1085. showit;
  1086. endchar;
  1087.  
  1088. % stop"";
  1089.  
  1090. beginchar(103,24/22size#,23/22size#,1/22size#); "pion czarny z 103";
  1091.   currentpicture := black_circle 
  1092.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  1093.        - digit[0] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  1094.        - digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1095. showit;
  1096. endchar;
  1097.  
  1098. % stop"";
  1099.  
  1100. beginchar(104,24/22size#,23/22size#,1/22size#); "pion czarny z 104";
  1101.   currentpicture := black_circle 
  1102.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1103.        - digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1104.        - digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
  1105. showit;
  1106. endchar;
  1107.  
  1108. % stop"";
  1109.  
  1110. beginchar(105,24/22size#,23/22size#,1/22size#); "pion czarny z 105";
  1111.   currentpicture := black_circle 
  1112.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1113.        - digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1114.        - digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1115. showit;
  1116. endchar;
  1117.  
  1118. % stop"";
  1119.  
  1120. beginchar(106,24/22size#,23/22size#,1/22size#); "pion czarny z 106";
  1121.   currentpicture := black_circle 
  1122.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1123.        - digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1124.        - digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1125. showit;
  1126. endchar;
  1127.  
  1128. % stop"";
  1129.  
  1130. beginchar(107,24/22size#,23/22size#,1/22size#); "pion czarny z 107";
  1131.   currentpicture := black_circle 
  1132.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  1133.        - digit[0] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  1134.        - digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1135. showit;
  1136. endchar;
  1137.  
  1138. % stop"";
  1139.  
  1140. beginchar(108,24/22size#,23/22size#,1/22size#); "pion czarny z 108";
  1141.   currentpicture := black_circle 
  1142.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1143.        - digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1144.        - digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1145. showit;
  1146. endchar;
  1147.  
  1148. % stop"";
  1149.  
  1150. beginchar(109,24/22size#,23/22size#,1/22size#); "pion czarny z 109";
  1151.   currentpicture := black_circle 
  1152.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1153.        - digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1154.        - digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
  1155. showit;
  1156. endchar;
  1157.  
  1158. % stop"";
  1159.  
  1160. beginchar(110,24/22size#,23/22size#,1/22size#); "pion czarny z 110";
  1161.   currentpicture := black_circle 
  1162.        - digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
  1163.        - digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1164.        - digit[0] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  1165. showit;
  1166. endchar;
  1167.  
  1168. % stop"";
  1169.  
  1170. beginchar(111,24/22size#,23/22size#,1/22size#); "pion czarny z 111";
  1171.   currentpicture := black_circle 
  1172.        - digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
  1173.        - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1174.        - digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  1175. showit;
  1176. endchar;
  1177.  
  1178. % stop"";
  1179.  
  1180. beginchar(112,24/22size#,23/22size#,1/22size#); "pion czarny z 112";
  1181.   currentpicture := black_circle 
  1182.        - digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
  1183.        - digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1184.        - digit[2] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  1185. showit;
  1186. endchar;
  1187.  
  1188. % stop"";
  1189.  
  1190. beginchar(113,24/22size#,23/22size#,1/22size#); "pion czarny z 113";
  1191.   currentpicture := black_circle 
  1192.        - digit[1] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1193.        - digit[1] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  1194.        - digit[3] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  1195. showit;
  1196. endchar;
  1197.  
  1198. % stop"";
  1199.  
  1200. beginchar(114,24/22size#,23/22size#,1/22size#); "pion czarny z 114";
  1201.   currentpicture := black_circle 
  1202.        - digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
  1203.        - digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1204.        - digit[4] shifted (.5w+.15dig_w,11/24w-.5dig_h); 
  1205. showit;
  1206. endchar;
  1207.  
  1208. % stop"";
  1209.  
  1210. beginchar(115,24/22size#,23/22size#,1/22size#); "pion czarny z 115";
  1211.   currentpicture := black_circle 
  1212.        - digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
  1213.        - digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1214.        - digit[5] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  1215. showit;
  1216. endchar;
  1217.  
  1218. % stop"";
  1219.  
  1220. beginchar(116,24/22size#,23/22size#,1/22size#); "pion czarny z 116";
  1221.   currentpicture := black_circle 
  1222.        - digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
  1223.        - digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1224.        - digit[6] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  1225. showit;
  1226. endchar;
  1227.  
  1228. % stop"";
  1229.  
  1230. beginchar(117,24/22size#,23/22size#,1/22size#); "pion czarny z 117";
  1231.   currentpicture := black_circle 
  1232.        - digit[1] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1233.        - digit[1] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  1234.        - digit[7] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  1235. showit;
  1236. endchar;
  1237.  
  1238. % stop"";
  1239.  
  1240. beginchar(118,24/22size#,23/22size#,1/22size#); "pion czarny z 118";
  1241.   currentpicture := black_circle 
  1242.        - digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
  1243.        - digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1244.        - digit[8] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  1245. showit;
  1246. endchar;
  1247.  
  1248. % stop"";
  1249.  
  1250. beginchar(119,24/22size#,23/22size#,1/22size#); "pion czarny z 119";
  1251.   currentpicture := black_circle 
  1252.        - digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
  1253.        - digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1254.        - digit[9] shifted (.5w+.2dig_w,11/24w-.5dig_h); 
  1255. showit;
  1256. endchar;
  1257.  
  1258. % stop"";
  1259.  
  1260. beginchar(120,24/22size#,23/22size#,1/22size#); "pion czarny z 120";
  1261.   currentpicture := black_circle 
  1262.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1263.        - digit[2] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1264.        - digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1265. showit;
  1266. endchar;
  1267.  
  1268. % stop"";
  1269.  
  1270. beginchar(121,24/22size#,23/22size#,1/22size#); "pion czarny z 121";
  1271.   currentpicture := black_circle 
  1272.        - digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1273.        - digit[2] shifted (.5w-.55dig_w,11/24w-.5dig_h)
  1274.        - digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1275. showit;
  1276. endchar;
  1277.  
  1278. % stop"";
  1279.  
  1280. beginchar(122,24/22size#,23/22size#,1/22size#); "pion czarny z 122";
  1281.   currentpicture := black_circle 
  1282.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1283.        - digit[2] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1284.        - digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1285. showit;
  1286. endchar;
  1287.  
  1288. % stop"";
  1289.  
  1290. beginchar(123,24/22size#,23/22size#,1/22size#); "pion czarny z 123";
  1291.   currentpicture := black_circle 
  1292.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  1293.        - digit[2] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  1294.        - digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1295. showit;
  1296. endchar;
  1297.  
  1298. % stop"";
  1299.  
  1300. beginchar(124,24/22size#,23/22size#,1/22size#); "pion czarny z 124";
  1301.   currentpicture := black_circle 
  1302.        - digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h)
  1303.        - digit[2] shifted (.5w-.75dig_w,11/24w-.5dig_h) 
  1304.        - digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h);
  1305. showit;
  1306. endchar;
  1307.  
  1308. % stop"";
  1309.  
  1310. beginchar(125,24/22size#,23/22size#,1/22size#); "pion czarny z 125";
  1311.   currentpicture := black_circle 
  1312.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1313.        - digit[2] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1314.        - digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1315. showit;
  1316. endchar;
  1317.  
  1318. % stop"";
  1319.  
  1320. beginchar(126,24/22size#,23/22size#,1/22size#); "pion czarny z 126";
  1321.   currentpicture := black_circle 
  1322.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1323.        - digit[2] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1324.        - digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1325. showit;
  1326. endchar;
  1327.  
  1328. % stop"";
  1329.  
  1330. beginchar(127,24/22size#,23/22size#,1/22size#); "pion czarny z 127";
  1331.   currentpicture := black_circle 
  1332.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  1333.        - digit[2] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  1334.        - digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1335. showit;
  1336. endchar;
  1337.  
  1338. % stop"";
  1339.  
  1340. end;
  1341.  
  1342.